home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / ptrp25dm.zip / ETEST4.TRP < prev    next >
Text File  |  1995-01-17  |  233b  |  12 lines
  1. procedure main
  2. var 
  3.         i : byte
  4.         j : byte
  5. endVar
  6.         for i := 1 to 3
  7.                 for j := 1 to 3
  8.                         writeln(i, ',', j, ',' i*j)
  9.                 endFor
  10.         endFor
  11. endProc       
  12.